1ecb28d3-c9ba-4071-8048-70cb3292f692 18 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

The UNofficial 5346 comes with Davide function "cases". This function generates the 'if/otherwise' that computes integral.

t0 1 time :

# # cases

# # # cases

# # # # # cases

Fourier slit experiment

x Ψ 110 sqrt / x 7.5 - ≥ (x 2.5 - ≤ (* x 2.5 ≥ (x 7.5 ≤ (* + 0 cases :

u P 12 π * sqrt / i u * t * - exp t Ψ * t 10 - 10 int * abs (2^:

s 5 : scale ≡

x q s 7.5 - 0 7.5 - 110 sqrt / 2.5 - 110 sqrt / 2.5 - 0 2.5 0 2.5 110 sqrt / 7.5 110 sqrt / 7.5 082 mat * :

Plot the clean probability density ... plot q(x) instead of Ψ(x)

1 s / x q * 5 Ψ 2 1 sys

Momentum Distribution @ the slit

x P 1 s / x q * 2 1 sys

As a substitute of "if/otherwise": it works but takes 9 min u P i u * t * - exp t 152 / - (≥ (t 52 / - (≤ (* t 52 / ≥ (t 152 / ≤ (* + (0 ≠ (* 10 sqrt / t 10 - 10 int 2 sqrt π sqrt * / abs (2^eval ≡

1 time t0 - 62 sec *